﻿Imports System.Data.SqlClient
Public Class Validacion
    Inherits Conexion

    Dim comando As New SqlCommand
    Dim lector As SqlDataReader

    Public Function Validar(ByVal parametro As SistemaCajas.BE.Usuarios) As Boolean
        Try
            Conectado()
            comando = New SqlCommand("Validar")
            comando.CommandType = CommandType.StoredProcedure
            comando.Connection = stringConexion

            comando.Parameters.AddWithValue("@NombreUsuario", parametro.NombreUsuario)
            comando.Parameters.AddWithValue("@Contraseña", parametro.Contraseña)

            lector = comando.ExecuteReader
            If lector.HasRows = True Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox("Usuario No Registrado")
            Return False
        Finally
            Desconectado()
        End Try
    End Function

End Class

